返回列表 上一主題 發帖

[發問] 請問活護工作表可以一次設定完成嗎?謝謝

viiv

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
win8 
軟體版本
2010 
閱讀權限
10 
性別
女 
註冊時間
2015-3-12 
最後登錄
2015-10-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-23 00:33 | 只看該作者

[發問] 請問活護工作表可以一次設定完成嗎?謝謝

請問~~~
我有一個活頁簿裡面有30個工作表
如果要保護工作表只能重複設定30次?
有辦法可以一次就設定讓30個工作表被保護嗎?
謝謝
收藏 分享

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2015-3-24 11:51 | 只看該作者
DEAR  SIR
  用VBA如下  

Sub 一次給所有工作表添加保護()
    For X = 1 To Sheets.Count
        Sheets(X).Protect Password:=123
    Next X
End Sub
羅

TOP

p223941

帖子
8 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
女 
註冊時間
2016-1-29 
最後登錄
2021-8-2 
3#
發表於 2016-1-29 14:24 | 只看該作者
Dim sht As Worksheet
myNum = Application.InputBox("請輸入密碼")
If myNum = "123" Then
For Each sht In Worksheets
sht.Unprotect Password:="123"
Next
Else
MsgBox "密碼錯誤"
End If

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題