電腦學習園地

Excel VBA - WorkSheet新增、複製、刪除(不出現提示視窗)

一、WorkSheet新增：

Sub TestAdd()
'新增工作表(無任何參數)
Worksheets.Add
'一次新增10個工作表
Worksheets.Add Count:=10
'新增工作表在sheet1之後
Worksheets.Add after:=Worksheets("sheet1")
'新增工作表在sheet1之前
Worksheets.Add before:=Worksheets("sheet1")
End Sub

Sub TestCopy()
'複製sheet1到sheet1之後
Worksheets("sheet1").Copy After:=Worksheets("sheet1")
'複製sheet1到sheet1之前
Worksheets("sheet1").Copy Before:=Worksheets("sheet1")
End Sub

Sub TestDelete
'關閉警告視窗
Application.DisplayAlerts = False
'刪除作用中的工作表
ActiveSheet.Delete
'恢復警告視窗
Application.DisplayAlerts = True
End Sub

Excel VBA - 讓UserForm關閉按鈕(X)失效

讓右上角的關閉按鈕(X)的功能失效，來達到不通過驗證只能停在登入視窗無法進行任何其它的動作。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = 1
End Sub