国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

'已修改過(guò)

'Sheet1中
Dim t As Integer
Private Sub Worksheet_Activate()
t = t + 1
If t < 2 Then
      Worksheets(1).Visible = False
      Worksheets(2).Visible = False
      Worksheets(3).Activate
End If
End Sub

Private Sub Worksheet_Deactivate()
t = t + 1
If t < 2 Then
      Worksheets(1).Visible = False
      Worksheets(2).Visible = False
      Worksheets(3).Activate
End If
End Sub
Dim s As Integer
Private Sub Label1_Click()
If j < 1 Then
      MsgBox "尚未登陸，請(qǐng)先登陸！！"
      UserForm1.Show
      j = j + 1
      s = s + 1
End If
      Worksheets("sheet1").Visible = True
      Worksheets("sheet2").Visible = True
End Sub

'Sheet3中
Private Sub Worksheet_Activate()
s = s + 1
If s = 1 Then
      Worksheets("sheet1").Visible = False
      Worksheets("sheet2").Visible = False
End If
End Sub

'ThisWorkBook中
Private Sub Workbook_Open()
Worksheets("sheet1").Visible = False
Worksheets("sheet2").Visible = False
Application.Visible = False
UserForm1.Show
j = j + 1
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("sheet1").Visible = False
Worksheets("sheet2").Visible = False
End Sub

'UserFrom1中
Private Sub CommandButton1_Click()
Dim i As Integer
Dim a As String
a = "12345"
TextBox1.SetFocus
If TextBox1 = a Then
Application.Visible = True
Worksheets(1).Visible = True
Worksheets(2).Visible = True
Unload Me
huodong
Else
Worksheets("sheet1").Visible = False
Worksheets("sheet2").Visible = False
i = i + 1
       If i >= 3 Then
           Application.Quit
       End If
End If
End Sub

Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
      Cancel = 1
      MsgBox "無(wú)效操作"
      End If
End Sub

'模塊中
Public j As Integer
Sub huodong()
Worksheets("sheet1").Visible = False
Worksheets("sheet2").Visible = False
Worksheets(3).Activate
End Sub

'禁止刪除

Private Sub Worksheet_Activate()
Dim Ctl As Office.CommandBarControl
For Each Ctl In Application.CommandBars.FindControls(ID:=847)   '847是管刪除的
     Ctl.Enabled = False
Next
End Sub