vba設置工作表保護密碼

『壹』 EXCE如何用VBA代碼加入啟動時對所有工作表加密,並設指定密碼

都沒有開啟宏，那你還怎麼啟用宏呢？加一句肯定是不行的，得要個宏表函專數才行

至於屬密碼嘛，你在open事件寫個

foreachshtinsheets
sht.protectpassword:=123456
next

這樣就設置密碼了

『貳』 在哪裡設置VBA編碼的保護密碼

操作步驟如下：

1.右鍵點擊有VBA代碼的工作表，選擇VBProject工程屬性

『叄』 如何用vba編程對word和excel進行文件保護

保護工作簿(Protect方法) Sub ProtectWorkbook() MsgBox "保護工作簿結構,密碼為123" ActiveWorkbook.Protect Password:="123", Structure:=True MsgBox "保護工作簿窗口,密碼為123" ActiveWorkbook.Protect Password:="123", Windows:=True MsgBox "保護工作簿結構和窗口,密碼為123" ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True End Sub 示例說明：使用Protect方法來保護工作簿，帶有三個可選參數，參數Password指明保護工作簿密碼，要解除工作簿保護應輸入此密碼；參數Structure設置為True則保護工作簿結構，此時不能對工作簿中的工作表進行插入、復制、刪除等操作；參數Windows設置為True則保護工作簿窗口，此時該工作簿右上角的最小化、最大化和關閉按鈕消失。 解除工作簿保護(UnProtect方法) Sub UnprotectWorkbook() MsgBox "取消工作簿保護" ActiveWorkbook.Unprotect "123" End Sub word的應該一樣吧

『肆』 求教：用VBA保護工作表

Sub bhgzb2()
Sheets("表2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=666 '666為密內碼容
Sheets("表1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=888 '888為密碼
End Sub

『伍』 怎樣用VBA語句設置密碼保護工作表

設置襲工作表密碼
ActiveSheet.Protect Password:=641112 ' 保護工作表並設置密碼
ActiveSheet.Unprotect Password:=641112 '撤消工作表保護並取消密碼

『陸』 大俠，我想求個VBA。打開或關閉Excel07的文檔時，自動對文檔的sheet加密保護工作表

用下面代碼，可在打開時，自動撤消保護，關閉時自動保護工作表。
代碼要放在thisworkbook模塊回中
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "關閉後會保護答工作表"
Sheets("sheet1").Protect Password:=123 ' 保護工作表sheet1並設置密碼
End Sub

Private Sub Workbook_Open()
MsgBox "打開工作表，自動取消保護"
Sheets("sheet1").Unprotect Password:=123 '撤消sheet1工作表保護,密碼是123
End Sub