Giúp đỡ về không cho đổi tên File *.xls (1 người xem)

[hailong]

Các bạn Giúp đỡ cho mình Về không cho đổi tên File EXCEL

thanks

 

[anhtuan1066]

Chắc file đó bạn đang mở chứ gì? Nếu file đang mở thì tất nhiên sẽ ko thể đỗi tên hay xóa dc rồi... giống như tự ta ko thể nhấc bổng thân thể ta lên dc vậy... hi... hi..

 

[hailong]

Không cho đổi tên khi chưa mở file.

 

[tedaynui]

Không cho đổi tên khi chưa mở file.

Mình nghĩ bạn có thể viết lệnh trong Workbook_Open, mỗi khi mở file thì nó kiểm tra nếu đúng thì OK. Nếu không đúng (tên file đã bị thay đổi) thì Quit.

TDN

 

[ongtrungducmx25]

viết như thế nào nhỉ Pác Phước!

 

[anhtuan1066]

Viết như thế nào à? Thầy Phước đã nói cái hướng như thế, bạn thử vài chiêu sẽ biết ngay nên dùng code nào thôi mà... (ko ngoài câu lệnh IF)...
Về cách viết đường dẩn file thì record thử 1 macro lưu file xem nó viết sao mình bắt chước vậy!
Bạn gì đó nói file nào ko cho đỗi tên, thử post lên cho mọi người xem thử

 

[chibi]

Trả lời giúp Tedaynui

viết như thế nào nhỉ Pác Phước!

Trả lời thay Tedaynui nhé.

Private Sub Workbook_Open()
    If ActiveWorkbook.Name <> "vidu.xls" Then Application.Quit
End Sub

 

[hailong]

Trả lời thay Tedaynui nhé.

Private Sub Workbook_Open()
    If ActiveWorkbook.Name <> "vidu.xls" Then Application.Quit
End Sub

Mình hơi củ chuối về VB trong Excel, bạn vui lòng hứơng dẫn chi tiết về cách viết và nhập CODE .

Mến

HAI LONG

 

[Nguyễn Xuân Sơn]

Theo tôi nghĩ bạn HaiLong đề phòng người khác đổi tên fai thì sẽ ko biết fai ở đâu mà mở nữa. Nên vấn đề là phải làm sao khi có người muốn đổi tên fai ( đổi "trộm" ) thì vô hiệu hóa được hành động này cơ, có phải kop bạn HaiLong?

 

[hailong]

Theo tôi nghĩ bạn HaiLong đề phòng người khác đổi tên fai thì sẽ ko biết fai ở đâu mà mở nữa. Nên vấn đề là phải làm sao khi có người muốn đổi tên fai ( đổi "trộm" ) thì vô hiệu hóa được hành động này cơ, có phải kop bạn HaiLong?

Thật sự là mình tìm những ý tưởng bảo vệ file 1 cách đơn giản và tương đối an toàn.

Rất vui được bạn giúp đỡ.

Mến

 

[tigertiger]

Thật sự là mình tìm những ý tưởng bảo vệ file 1 cách đơn giản và tương đối an toàn.

oh, bạn phải nói rõ câu hỏi, câu hỏi bạn như trên: đầu tiên được hiểu là "ko đổi đc tên file", tiếp theo lại là "bảo vệ file ", hi thế là sao?

nếu là bảo vệ file bạn có thể dùng các chương trình nhỏ tiện ích để ẩn (giấu folder) như Lock Folder, hay PC sercurity (có thể search chúng trên google hoặc vào 1 trang rất hay đó là http://fixdown.com - bật mí với GPE trang này rất hay hay)

 

[chibi]

Mình hơi củ chuối về VB trong Excel, bạn vui lòng hứơng dẫn chi tiết về cách viết và nhập CODE .

Dùng Alt+F11 để vào VBE, bấm đúp chuột vào ThisWorkbook ở khung bên trái và paste đoạn code trên vào phần bên phải. Alt+Q để trở lại. Thế là OK

 

[hunggtg]

Trả lời thay Tedaynui nhé.

Private Sub Workbook_Open()
If ActiveWorkbook.Name <> "vidu.xls" Then Application.Quit
End Sub

Nếu dùng lệnh này, nếu trong file có sẵn các đoạn code rồi. Khi nó thoát ra nó sẽ hỏi có save lại hay không? nhấn vào Yes hoặc No thì nó tắt rồi, Nhưng khi nhấn vào Cancel thì nó vẫn giữ nguyên không đóng file lại. Nhờ bạn tư vấn thêm

 

[Hai Lúa Miền Tây]

Nếu dùng lệnh này, nếu trong file có sẵn các đoạn code rồi. Khi nó thoát ra nó sẽ hỏi có save lại hay không? nhấn vào Yes hoặc No thì nó tắt rồi, Nhưng khi nhấn vào Cancel thì nó vẫn giữ nguyên không đóng file lại. Nhờ bạn tư vấn thêm

Ý bạn là có 1 code nào đó ghi vào bảng tính khi mở file cùng với cái dò tên file ?
Như vậy thì nếu không đúng tên thì lưu file rồi thoát. Nhưng cách này mở được như thường nếu như Disable Macro....

Private Sub Workbook_Open()
[a1] = Now
If ActiveWorkbook.Name <> "Vidu.xls" Then
  ThisWorkbook.Close (True)
[B][COLOR=darkgreen][/COLOR][/B]End If
End Sub

Không nên dùng Application.Quit vì nếu mở file không đúng tên nó thoát luôn những file khác đang mở. Nến đóng cái file vừa mở lên thôi.

 

[van_thanh_phong]

Ý bạn là có 1 code nào đó ghi vào bảng tính khi mở file cùng với cái dò tên file ?
Như vậy thì nếu không đúng tên thì lưu file rồi thoát. Nhưng cách này mở được như thường nếu như Disable Macro....

Private Sub Workbook_Open()
[a1] = Now
If ActiveWorkbook.Name <> "Vidu.xls" Then
  ThisWorkbook.Close (True)
End If
End Sub

Không nên dùng Application.Quit vì nếu mở file không đúng tên nó thoát luôn những file khác đang mở. Nến đóng cái file vừa mở lên thôi.

Bạn Hai Lúa Miền Tây thân mến ! Mình không hiểu chỗ này, xin bạn chỉ giúp nhé:
Theo code mà các bạn hướng dẫn thì mình vẫn có thể đổi tên fie được, nhưng khi đổi tên file rồi thì mở không được thôi.
Vậy làm sao biết tên file cũ mà đặt lại tên để mở được file ? ( Với những ai không biết VBA để xem code như mình vậy đó !)
Vậy code là làm thế nào không đổi được tên file khi đang đóng, vậy mới hiệu quả phải không bạn ?
Mình cũng đang mò....mẫm đến với VBA trong excel mong các bạn chỉ giúp !

 

[ndu96081631]

Bạn Hai Lúa Miền Tây thân mến ! Mình không hiểu chỗ này, xin bạn chỉ giúp nhé:
Theo code mà các bạn hướng dẫn thì mình vẫn có thể đổi tên fie được, nhưng khi đổi tên file rồi thì mở không được thôi.
Vậy làm sao biết tên file cũ mà đặt lại tên để mở được file ? ( Với những ai không biết VBA để xem code như mình vậy đó !)
Vậy code là làm thế nào không đổi được tên file khi đang đóng, vậy mới hiệu quả phải không bạn ?
Mình cũng đang mò....mẫm đến với VBA trong excel mong các bạn chỉ giúp !

Bạn mở file nhưng Disable Macro thì code nó đâu có chạy. Lúc này, cứ Alt + F11 vào xem code thoải mái, sửa thoải mái.. thậm chí xóa code luôn là xong
Ẹc... ẹc...