Giúp mình xem code force save thì code delete không chạy (1 người xem)

[nhoklipice]

Private Sub Workbook_Open()
Solan = GetSetting("MyCount", "A", "Count", 0) + 1
SaveSetting "MyCount", "A", "Count", Solan
If Solan > 2 Then
With Sheet1
Range("a1:a10").Clear
' xóa module
Call xmodule
' xóa code trong thisworkbook
Call bookcode
'force save
call fsave

End With
End If
End Sub

Nhưng khi mình không dùng dòng call fsave thì module1 được xóa.
Để dòng call fsave thì call bookcode được xóa còn call module1 lại không được xóa ?
Nhớ a/c sửa giúp để nó del module + del code this workbook rồi đóng file + force save

 

[nhoklipice]

Không ai giúp mình sao ?

 

[siwtom]

Private Sub Workbook_Open()
Solan = GetSetting("MyCount", "A", "Count", 0) + 1
SaveSetting "MyCount", "A", "Count", Solan
If Solan > 2 Then
With Sheet1
Range("a1:a10").Clear
' xóa module
Call xmodule
' xóa code trong thisworkbook
Call bookcode
'force save
call fsave

End With
End If
End Sub

Nhưng khi mình không dùng dòng call fsave thì module1 được xóa.
Để dòng call fsave thì call bookcode được xóa còn call module1 lại không được xóa ?
Nhớ a/c sửa giúp để nó del module + del code this workbook rồi đóng file + force save

Bạn làm như sau:

1. Thêm Module2
2. Chuyển Sub FSave sang Module2
3. code ThisWorkbook

Private Sub Workbook_Open()
    Solan = GetSetting("MyCount", "A", "Count", 0) + 1
    SaveSetting "MyCount", "A", "Count", Solan
    If Solan > 1 Then
        With Sheet1
            Range("a1:a10").Clear
            Call xmodule
            Call bookcode
            [COLOR=#ff0000]Application.OnTime Now + TimeValue("00:00:02"), "FSave"[/COLOR]
        End With
    End If
End Sub

Tức thay dòng call FSave bằng dòng đỏ đỏ

Bạn nên tập khai báo biến tường minh. Bạn nên tập viết code có căn lề. Bạn không phải bắt chước ai cả.

 

[nhoklipice]

Cảm ơn bạn đã giúp, mình là đứa tay ngang mò mẫm rồi chắp vá thôi, không thuộc lĩnh vực này, hìhi, cảm ơn bạn đã giúp !