tft每日頭條

 > 職場

 > 工作表為什麼不用vba

工作表為什麼不用vba

職場 更新时间:2025-01-12 23:35:38

不少人嘗試過給工作組設定工作表保護,但是,沒能成功,而且,總不甘心。

工作表為什麼不用vba(不少人嘗試過給工作表保護)1

好在,用VBA處理起來不算麻煩。

右鍵點擊任一工作表标簽,将下面的代碼粘貼到光标處:

  1. Sub 保護()
  2. Dim Sh As Worksheet
  3. For Each Sh In Worksheets
  4. Sh.Protect
  5. Next
  6. MsgBox "OK"

End Sub

将光标定位到該代碼的任意位置,按F5運行該代碼。

如果要給工作表保護設置密碼,可在 Protect 後面寫入密碼,用空格分開,密碼前後加上半角雙引号,假如密碼為123:

Sh.Protect "123"

如果要批量撤銷工作表保護,可将命令Protect改為Unprotect,如果有密碼,同樣在後面寫入密碼,如:

  1. Sub 撤銷保護()
  2. Dim Sh As Worksheet
  3. For Each Sh In Worksheets
  4. Sh.Unprotect "123"
  5. Next
  6. MsgBox "OK"
  7. End Sub

我們會注意到,Excel基本操作中,用同一個菜單項或命令按鈕執行“保護”和“撤銷保護”兩個操作。我們也可以把上面兩段代碼合并為一段代碼:

  1. Sub 保護全部工作表()
  2. Dim pc As Boolean, cMM$, Sh As Worksheet
  3. pc = Me.ProtectContents
  4. On Error Resume Next
  5. cMM = Application.InputBox("請輸入" & IIf(pc, "撤銷", "") & "工作表保護密碼:", "密碼", Type:=2)
  6. If cMM <> "123" Then Exit Sub '輸入的密碼是123
  7. Application.ScreenUpdating = False
  8. For Each Sh In Worksheets
  9. If pc Then
  10. Sh.Unprotect ("xx") '實際工作表保護密碼是xx
  11. Else
  12. Sh.Protect ("xx")
  13. End If
  14. Next
  15. Application.ScreenUpdating = True
  16. End Sub

使用Excel的人中,一部分人的工作十分需要VBA的功能,比如分頁打印,便他的工作需要中,除此以外,不再需要VBA,重要一點,他也沒有學習VBA的興趣。

他們需要一種拿來就用的,像新建、打開、保存、打印一樣簡單的功能。

為了能滿足更多人的需求,歡迎各位共同出謀獻策。

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关職場资讯推荐

热门職場资讯推荐

网友关注

Copyright 2023-2025 - www.tftnews.com All Rights Reserved