GBKEE

回復 10# joychiangg
加入ThisWorkbook 的預設事件

1. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
   
2.     If Sh.Name <> "Sheet1" Then
   
3.         Sh.Cells.Interior.ColorIndex = 2
   
4.         Sh.Cells.Font.ColorIndex = 2
   
5.     End If
   
6. End Sub

複製代碼

Hsieh

回復 10# joychiangg
刪除所有工作表模組內的程序
Thisworkbook模組

1. Private Sub Workbook_Open()
   
2.     Sheets("sheet1").Select
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
6. NoData Sh.Name
   
7. End Sub

複製代碼

一般模組

1. Sub NoData(sht As String)
   
2. With Sheets(sht)
   
3. If sht = "Sheet1" Then Exit Sub
   
4.    .Cells.Font.ColorIndex = 2
   
5.    .Cells.Interior.ColorIndex = 2
   
6.    pwd = Application.InputBox("請輸入密碼:")
   
7.    Select Case sht
   
8.    Case "中山"
   
9.    p = 40
   
10.    Case "東台北"
    
11.    p = 13
    
12.    Case "建北"
    
13.    p = 48
    
14.    End Select
    
15. If pwd = CStr(p) Or pwd = 6309 Then
    
16. Range("A1").Select
    
17. Cells.Interior.ColorIndex = xlNone
    
18. .Cells.Font.ColorIndex = xlColorIndexAutomatic
    
19. Else
    
20. MsgBox "輸入錯誤，請從新選擇!!"
    
21. Sheets("sheet1").Select
    
22. End If
    
23. End With
    
24. End Sub

複製代碼