如题所述
å¯ä»¥å¨å·¥ä½ç°¿ä¸åOpenäºä»¶ä»£ç ï¼æ¹æ³æ¯æALT+F11ãCTRL+Rï¼åå»ThisWorkbookç²è´´ç¨åºï¼æåå¦ä¸å¾ï¼
ç¨åºä»£ç ï¼
Private Sub Workbook_Open()
If Me.FullName <> "c:\Temp\tmp.xlsm" Or Application.UserName <> "admin" Then Me.Close
End Sub
ç¨åºä¸çæ件路å¾åç¨æ·å请èªè¡ä¿®æ¹ã
温馨提示:答案为网友推荐,仅供参考