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

½Ð°Ý¦p¦ó¨Ï¥ÎVBA¥[±K«OÅ@¬¡­¶Ã¯

½Ð°Ý¦p¦ó¨Ï¥ÎVBA¥[±K«OÅ@¬¡­¶Ã¯

§Úªºµ{¦¡¦p¤U
Sub password()
    Sheets("Sheet1").Visible = True
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "test"
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub
°ÝÃD¬O§Ú¤£·|¦Û°Ê¸Ñ±K«OÅ@¬¡­¶Ã¯«á¦AÅã¥Ü¬¡­¶Ã¯
¿é¤J¸ê®Æ©Î¹Bºâ«á¦AÁôÂáAµM«á«OÅ@¬¡­¶Ã¯¦Û°Ê¥[±K«OÅ@
¶g¦Ó´_©l¡A±K½X¼g¦bVBA¸Ì¡A¥Øªº´N¬O¤£­nÅý¤H¬Ý§ÚÁôÂì¡­¶Ã¯¸ÌªºªF¦è
YOYO

¤p¾Ç¥Íªº§Ú¡Aªþ¥ó¤£¯à¤U¸ü­C¡I
´X¥G¨C¤Ññ¨ìªº§Ú¡A§Æ±æ¥i¥H»°§ÖÅܤ¤¾Ç¥Í
¤]§Æ±æ¦Û¤v»°§ÖÅܱj¡AªA°È¤j®a¡I¡I
YOYO

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD