欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

 本帖最后由 bjjdghyf 于 2016-9-8 20:44 編輯

簡(jiǎn)單的保護，代碼放入sheet2
Private Sub Worksheet_Activate()
    tmp = Application.InputBox("請輸入密碼", "提示")
    If tmp <> "123" Then
        Sheet1.Activate
    Else
        Cells.EntireRow.Hidden = False
    End If
End Sub

Private Sub Worksheet_Deactivate()
    Cells.EntireRow.Hidden = True
End Sub