ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¬¡Å@¤u§@ªí¥i¥H¤@¦¸³]©w§¹¦¨¶Ü?ÁÂÁÂ

[µo°Ý] ½Ð°Ý¬¡Å@¤u§@ªí¥i¥H¤@¦¸³]©w§¹¦¨¶Ü?ÁÂÁÂ

½Ð°Ý~~~
§Ú¦³¤@­Ó¬¡­¶Ã¯¸Ì­±¦³30­Ó¤u§@ªí
¦pªG­n«OÅ@¤u§@ªí¥u¯à­«½Æ³]©w30¦¸?
¦³¿ìªk¥i¥H¤@¦¸´N³]©wÅý30­Ó¤u§@ªí³Q«OÅ@¶Ü?
ÁÂÁÂ

DEAR  SIR
  ¥ÎVBA¦p¤U  

Sub ¤@¦¸µ¹©Ò¦³¤u§@ªí²K¥[«OÅ@()
    For X = 1 To Sheets.Count
        Sheets(X).Protect Password:=123
    Next X
End Sub
ù

TOP

Dim sht As Worksheet
myNum = Application.InputBox("½Ð¿é¤J±K½X")
If myNum = "123" Then
For Each sht In Worksheets
sht.Unprotect Password:="123"
Next
Else
MsgBox "±K½X¿ù»~"
End If

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD