返回列表 上一主題 發帖

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

p223941

帖子
8 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
女 
註冊時間
2016-1-29 
最後登錄
2021-8-2 
1# 跳轉到 »
發表於 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

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題