Thien
Thành viên thường trực




- Tham gia
- 23/6/06
- Bài viết
- 352
- Được thích
- 113
Chào cả nhà!.
1/ Mình muốn tắt chức năng move or copy khi nhấp phải chuột tại tất cả các sheet trong WK?.
2/
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Sorry, you are not allowed to save this workbook as another name. " _
& "Do you wish to save this workbook.", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub
Đoạn code trên cho phép không cho dùng save as. Mình cần chỉnh lại sao cho mỗi khi save as sẽ hỏi pass, nếu gỏ đúng pass thì cho save as, còn không đúng thì thực thi y chang code trên.
3/
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
MsgBox "Sorry, you cannot add any more sheets to this workbook", vbInformation
Sh.Delete
Application.DisplayAlerts = True
End Sub
đoạn code không cho thêm sheet, mình muốn khi thêm sheet sẽ hỏi pass, nếu gỏ đúng pass thì cho thêm, còn không đúng thì thực thi y chang code trên.
Hy vọng nhận được nhiều giúp đỡ.
Thân chào bạn
1/ Mình muốn tắt chức năng move or copy khi nhấp phải chuột tại tất cả các sheet trong WK?.
2/
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Sorry, you are not allowed to save this workbook as another name. " _
& "Do you wish to save this workbook.", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub
Đoạn code trên cho phép không cho dùng save as. Mình cần chỉnh lại sao cho mỗi khi save as sẽ hỏi pass, nếu gỏ đúng pass thì cho save as, còn không đúng thì thực thi y chang code trên.
3/
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
MsgBox "Sorry, you cannot add any more sheets to this workbook", vbInformation
Sh.Delete
Application.DisplayAlerts = True
End Sub
đoạn code không cho thêm sheet, mình muốn khi thêm sheet sẽ hỏi pass, nếu gỏ đúng pass thì cho thêm, còn không đúng thì thực thi y chang code trên.
Hy vọng nhận được nhiều giúp đỡ.
Thân chào bạn