如题所述
éè¿ä»£ç 对excel代ç è¿è¡å å¯å³å¯ï¼
1ãæå¼æ¨éè¦ç ´è§£ä¿æ¤å¯ç çExcelæ件ï¼
2ãä¾æ¬¡ç¹å»èåæ ä¸çå·¥å ·---å®----å½å¶æ°å®ï¼è¾å ¥å®ååå¦:aaï¼
3ãåæ¢å½å¶(è¿æ ·å¾å°ä¸ä¸ªç©ºå®)ï¼
4ãä¾æ¬¡ç¹å»èåæ ä¸çå·¥å ·---å®----å®,éaa,ç¹ç¼è¾æé®ï¼
5ãå é¤çªå£ä¸çææå符(åªæå 个),æ¿æ¢ä¸ºä¸é¢çå 容ï¼
Sub æ·»å å¯ç ()Dim x As Integer
For x = 1 To Sheets.Count
Sheets(x).Protect "123"
Next x
hisWorkbook.Protect "123"
温馨提示:答案为网友推荐,仅供参考