Xin code disable save file

[phamkhacni]

Em có cái file excel viết côg thức tính toán.
giờ em muốn thiết lập khi mở file đó lên thì k save lại những thao tác của người sử dụng.
có nghĩa là khi đóng file trả về trạng thái ban đầu e đã thiết lập
Mong các bác giúp đỡ!

 

[Quang_Hải]

Em có cái file excel viết côg thức tính toán.
giờ em muốn thiết lập khi mở file đó lên thì k save lại những thao tác của người sử dụng.
có nghĩa là khi đóng file trả về trạng thái ban đầu e đã thiết lập
Mong các bác giúp đỡ!

Mở file lên, không cho macro hoạt động. Cho code này vào ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Save File lại. Đóng file và mở file lại. Cho phép macro hoạt động. Sẽ không bao giờ save được gì nữa.
*** Nếu người dùng không EnableMacros thì coi như tèo.

 

[phamkhacni]

Mở file lên, không cho macro hoạt động. Cho code này vào ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Save File lại. Đóng file và mở file lại. Cho phép macro hoạt động. Sẽ không bao giờ save được gì nữa.
*** Nếu người dùng không EnableMacros thì coi như tèo.

file của em có dùng macro nên áp dụng được.
nếu người dùng có bấm nút save trên màn hình cũng k save được phải k ạ?

 

[Quang_Hải]

file của em có dùng macro nên áp dụng được.
nếu người dùng có bấm nút save trên màn hình cũng k save được phải k ạ?

Sao không thử đi rồi biết chứ gì. Ctrl +S hay bấm nút Save rồi chọn Yes rồi cũng rứa thôi.

 

[phamkhacni]

Hiện tại em muốn mở rộng thêm là khi thoát nó k hiện hộp thoại Save.
Nhưng làm mãi mà k được. Các bác giúp em với ạ

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Cancel = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)    
    With Application
        .DisplayAlerts = False
    End With
End Sub

 

[Quang_Hải]

Hiện tại em muốn mở rộng thêm là khi thoát nó k hiện hộp thoại Save.
Nhưng làm mãi mà k được. Các bác giúp em với ạ

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Cancel = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)    
    With Application
        .DisplayAlerts = False
    End With
End Sub

Cái này mới đúng

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close False
End Sub

 

[phamkhacni]

Cái này mới đúng

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close False
End Sub

Tuyệt
Đã đúng ý của em, nhưng nó chỉ close cái cửa sổ đang mở chứ chưa thóat hẳn excel bác ạ
Có cách nào bấm X là nó thoát excel lun hok bác?

 

[Hong.Van]

Tuyệt
Đã đúng ý của em, nhưng nó chỉ close cái cửa sổ đang mở chứ chưa thóat hẳn excel bác ạ
Có cách nào bấm X là nó thoát excel lun hok bác?

Bạn thử thay thế dòng ThisWorkbook.Close False
thành dòng Application.Quit

 

[phamkhacni]

Bạn thử thay thế dòng ThisWorkbook.Close False
thành dòng Application.Quit

Sửa lại như bác thì hộp thọai hỏi Save nói hiện lên bác ạ

 

[phamkhacni]

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Saved = True
End Sub

Phải sửa như vầy các bác ạ

 

[Quang_Hải]

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Saved = True
End Sub

Phải sửa như vầy các bác ạ

Lúc đầu thì không cho Save, giờ thì nói với mọi người là phải .Save=True mới đúng
???
Code thì có hết rồi đó, bạn cứ tự thay thế dần để biết mình thật sự cần cái gì

 

[phamkhacni]

Lúc đầu thì không cho Save, giờ thì nói với mọi người là phải .Save=True mới đúng
???
Code thì có hết rồi đó, bạn cứ tự thay thế dần để biết mình thật sự cần cái gì

Đúng là dù có chỉnh sửa gì cũng k save được bác ạ.
.Saved để đánh lừa excel k hiện hộp thoại save khi thoát thôi

Cảm ơn các bác đã nhiệt tình giúp đỡ