怎么在EXCEL中工作表不被修改，空白处可以输入-爱科技问答

智能回答

怎么在EXCEL中工作表不被修改，空白处可以输入

展开

没找到满意答案？去问豆包AI智能助手

取消复制问题

shangho

哎哟，这操作太硬核了！我直接给你整了个懒人版
Excel一键锁公式？不用记一堆菜单！
1?? 先随便写几个带公式的表（比如SUM、IF啥的）
2?? 点→→→选→确定（这时候所有公式格子全被框住啦?）
3?? 右键→→→勾上锁定→确定
4?? 再点→→输个密码（比如123）→搞定！?
完事！以后点一下就锁死公式，其他单元格还能随便改～
（小声：密码别忘！不然自己都解不开）
想更丝滑？录个宏：→→→起名锁公式→按上面步骤走一遍→→再加个快捷按钮到工具栏，点一下秒锁！
真·手残党友好，亲测有效！（别谢，谢就请我喝冰美式?）
yuxihuaqq

好像最多能输入30多个字符吧
z88665577

运行下边的宏
Sub rename()
Dim i As Integer
i = 1
For Each sht In ActiveWorkbook.Sheets
sht.Name = i
i = i + 1
Next sht
End Sub
a2548563261

单元格设置了数据有效性取消了就行了
gange625

数据--数据有效性--改成”任何值"
593223751

ctrl+F11打开VBE编辑器，插入模块，粘贴以下代码，点击运行
Sub chaifen()
Application.ScreenUpdating = False
Dim i&, r, rr, a$
With Sheets("x街村")
.Select
r = .Cells(Rows.Count, 3).End(3).Row
For i = 5 To r
If .Cells(i, 2) = "户主" Then
Sheets.Add , Sheets(Sheets.Count)
a = .Cells(i, 3).Text
On Error Resume Next
***.Name = a
If Err Then a = a & .Cells(i, 5).Text: ***.Name = a: Err.Clear
.Select
.Rows("1:4").Copy Sheets(a).[a1]
On Error Resume Next
rr = .Range("b" & i + 1 & ":b" & r).Find("户主", , , 1).Row - 1
If Err Then rr = r: Err.Clear
.Rows(i & ":" & rr).Copy
Sheets(a).Select
Range("A5").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths
.Select
End If
Next
End With
Application.ScreenUpdating = True
End Sub

怎么在EXCEL中工作表不被修改，空白处可以输入

最新回答更多>

相关问答

热门推荐

怎么在EXCEL中工作表不被修改，空白处可以输入

最新回答 更多>

相关问答

热门推荐

最新回答更多>