æ°å»ºä¸ä¸ªexcelææ¡£ï¼å¦å为*.xlsmæ ¼å¼ï¼å¨excelé项-ä¿¡ä»»ä¸å¿è®¾ç½®-å®å®å
¨è®¾ç½® ä¸éæ©å¯ç¨ææå®
ç¶åè¿åexcelçé¢ï¼æalt+F11,å¨thisworkbookåé¢ç代ç çªå£å以ä¸ä»£ç ï¼
Private Sub workbook_open()
Application.Visible = False
n = InputBox("请è¾å
¥å¯ç ")
If n <> "jianqiji" Then
Application.Quit
Else: Application.Visible = True
End If
End Sub
代ç éé¢ jianqiji æ¯å¯ç ï¼å¯ä»¥æ¹æä½ æ³è¦ç
温馨提示:答案为网友推荐,仅供参考