Giao lưu - Unviewable

Bảy Dzõ · 3/3/16

Thân gửi,
Mình đưa bài này vào mục Giao lưu có nghĩa là mình không cần biết code bên trong là gì vì file này dữ liệu chỉ là ngày phép của nhân viên mà thôi do mấy bạn nhân sự cty mình làm ra hay không thách đố gì hết vì nói thật mình không biết nhiều về VBA. Đưa file lên nhằm mục đích giao lưu để học hỏi cách chuyển từ Unviewable sang Viewable mà thôi. Hy vọng bài này không phạm luật về bẻ khóa hay gì đó. Xin mời mọi người xem qua.

Kiều Mạnh · 3/3/16

Bảy Dzõ đã viết:
Thân gửi,
Mình đưa bài này vào mục Giao lưu có nghĩa là mình không cần biết code bên trong là gì vì file này dữ liệu chỉ là ngày phép của nhân viên mà thôi do mấy bạn nhân sự cty mình làm ra hay không thách đố gì hết vì nói thật mình biết nhiều về VBA. Đưa file lên nhằm mục đích giao lưu để học hỏi cách chuyển từ Unviewable sang Viewable mà thôi. Hy vọng bài này không phạm luật về bẻ khóa hay gì đó. Xin mời mọi người xem qua.

ý bạn Thân muốn coi code phải không ( cái từ này Mình hỏng biết nghĩa của nó Viewable)

PHP:

Sub LeaveApplication_Picture11_Click()
Sheets("Ref").Range("D1:D21").ClearContents
Application.DisplayAlerts = False
ThisWorkbook.Close savehanges = False
Application.DisplayAlerts = True
Application.Quit
End Sub

mà trong đó có cái gì đâu chứ ngoài một cái Form LeaveApp
Nói dóc cái coi ...Mạnh mới lấy ngón tay tịt 1 bên mũi xong ....hahaha

doveandrose · 3/3/16

chậm chân mất rồi hu hu

Bảy Dzõ · 3/3/16

Dạ em biết trong đó nó chả có cái gì mà tại hỏng biết về cái cụ unviewable này. Hôm bữa có chủ đề mà có hai cao thủ là anh kieumanh va doveandrose có nhắc đến file này nên em đưa lên thôi. Quả là cao thủ... không gì là không thể với các cao thủ. Thân

PhanTuHuong · 3/3/16

Đây là cách bảo mật trước đây khi chưa có Open Office. Kể cả anh Tuân đã từng sử dụng. --=0

Kiều Mạnh · 3/3/16

Bảy Dzõ đã viết:
Dạ em biết trong đó nó chả có cái gì mà tại hỏng biết về cái cụ unviewable này. Hôm bữa có chủ đề mà có hai cao thủ là anh kieumanh va doveandrose có nhắc đến file này nên em đưa lên thôi. Quả là cao thủ... không gì là không thể với các cao thủ. Thân

Nếu có nhiều code Hay ta thử dùng phần mềm của bên thứ 3 thử coi chăng VD như:
LockXLS ... cũng tạm ok đó

http://www.lockxls.com/download.asp

giangleloi · 3/3/16

kieu manh đã viết:
Nếu có nhiều code Hay ta thử dùng phần mềm của bên thứ 3 thử coi chăng VD như:
LockXLS ... cũng tạm ok đó

http://www.lockxls.com/download.asp

Nếu nhớ hông lầm phần mềm này cũng bị anh Mạnh "nhà ta" vọc hết rồi thì phải.

Bảy Dzõ · 3/3/16

kieu manh đã viết:
Nếu có nhiều code Hay ta thử dùng phần mềm của bên thứ 3 thử coi chăng VD như:
LockXLS ... cũng tạm ok đó

http://www.lockxls.com/download.asp

Chắc cũng thể nào thoát khỏi tay anh Mạnh được... nên thôi khỏi thử vậy hihi

chuot0106 · 3/3/16

giangleloi đã viết:
Nếu nhớ hông lầm phần mềm này cũng bị anh Mạnh "nhà ta" vọc hết rồi thì phải.

Nếu bạn hiền KieuManh ghé qua thử coi giúp code bên trong File này hộ mình với!
http://www.mediafire.com/download/323ia340au5ulgj/Hello.exe

hpkhuong · 3/3/16

chuot0106 đã viết:
Nếu bạn hiền KieuManh ghé qua thử coi giúp code bên trong File này hộ mình với!

Thôi viết mới luôn cho bạn nè...Mới viết đó... --=0

Form nha!

Mã:

Private Sub CmdView_Click()


Application.Goto Worksheets("Leave Application").Range("A1")


If TxtName.Value = "" Then
 
    MsgBox "Please enter Employee ID", vbCritical
    Exit Sub


End If


If OptionButton1.Value = False _
And OptionButton2.Value = False Then
Msg = MsgBox("Please select an option in Level")


Exit Sub


End If


If OptionButton3.Value = False _
And OptionButton4.Value = False _
And OptionButton5.Value = False Then
Msg = MsgBox("Please select an option in Type of Application")


Exit Sub


End If


If OptionButton6.Value = False _
And OptionButton7.Value = False _
And OptionButton8.Value = False _
And OptionButton9.Value = False _
And OptionButton10.Value = False _
And OptionButton11.Value = False Then
Msg = MsgBox("Please select an option in Type of Leave")


Exit Sub


End If




If TxtFrom.Value = "" Then
 
    MsgBox "Please enter Leave Date From", vbCritical
    Exit Sub
    
End If


If TxtTo.Value = "" Then
 
    MsgBox "Please enter Leave Date To", vbCritical
    Exit Sub
    


End If
If TxtImmediateHead.Value = "" Then
 
    MsgBox "Please enter Immediate Head", vbCritical
    Exit Sub
    
End If


Dim ws As Worksheet
Set ws = Worksheets("Ref")


'check for a part number
If Trim(Me.TxtName.Value) = "" Then
  Me.TxtName.SetFocus
  Me.OptionButton1.SetFocus
  Me.OptionButton2.SetFocus
  
  MsgBox "Please enter Employee ID"
  Exit Sub




End If


'copy the data to the database
'use protect and unprotect lines,
'     with your password
'     if worksheet is protected
With ws
' .Unprotect Password:="password"
  .Range("D7").Value = Me.TxtName.Value
  .Range("D8").Value = Me.TxtPosition.Value
  .Range("d9").Value = Me.TxtBusinessUnit.Value
  .Range("d10").Value = Me.TxtDepartment.Value
  .Range("d11").Value = Me.TxtFrom.Value
  .Range("d12").Value = Me.TxtTo.Value
  .Range("d13").Value = Me.ComboBox1.Value
  .Range("d14").Value = Me.TxtImmediateHead.Value
      
  
'  .Protect Password:="password"
End With


'clear the data
Me.TxtName.Value = ""
Me.TxtPosition.Value = ""
Me.TxtBusinessUnit.Value = ""
Me.TxtDepartment.Value = ""
Me.TxtFrom.Value = ""
Me.TxtTo.Value = ""
Me.ComboBox1.Value = ""
Me.TxtImmediateHead.Value = ""


End Sub


Private Sub cmdClose_Click()
Unload Me
End Sub










Private Sub CommandButton1_Click()


ActiveWindow.SelectedSheets.PrintOut


End Sub






Private Sub OptionButton1_Click()
Worksheets("Ref").Range("d5").Value = 1
End Sub


Private Sub OptionButton10_Click()
Worksheets("Ref").Range("d3").Value = 5
End Sub


Private Sub OptionButton11_Click()
Worksheets("Ref").Range("d3").Value = 6


End Sub


Private Sub OptionButton12_Click()
Worksheets("Ref").Range("d4").Value = 1


End Sub


Private Sub OptionButton13_Click()
Worksheets("ref").Range("d4").Value = 2


End Sub


Private Sub OptionButton2_Click()
Worksheets("Ref").Range("d5").Value = 2
End Sub


Private Sub OptionButton3_Click()
Worksheets("Ref").Range("D1").Value = 1


End Sub


Private Sub OptionButton4_Click()
Worksheets("Ref").Range("d1").Value = 2


End Sub


Private Sub OptionButton5_Click()
Worksheets("Ref").Range("d1").Value = 3


End Sub


Private Sub OptionButton6_Click()
Worksheets("Ref").Range("d3").Value = 1


End Sub


Private Sub OptionButton7_Click()
Worksheets("Ref").Range("d3").Value = 2


End Sub


Private Sub OptionButton8_Click()
Worksheets("Ref").Range("d3").Value = 3
End Sub


Private Sub OptionButton9_Click()
Worksheets("Ref").Range("d3").Value = 4
End Sub


Private Sub ResetButton_Click()
Sheets("Ref").Range("D1:D21").ClearContents
LeaveApp.TxtName.Value = ""
Unload Me
LeaveApp.Show




End Sub




Private Sub TxtName_Change()


    If Application.CountIf(Worksheets("Ref").Range("L1:L1000"), TxtName.Value) > 0 Then
        TxtPosition.Value = Worksheets("Ref").Range("L1:Y1000").Find(What:=TxtName.Value, After:=[L1000], LookIn:=xlFormulas, _
                                               LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                               MatchCase:=False, SearchFormat:=False).Offset(0, 1).Value
                                               
     
    Else
       TxtPosition.Value = ""
    End If
    If Application.CountIf(Worksheets("Ref").Range("L1:L1000"), TxtName.Value) > 0 Then
        TxtBusinessUnit.Value = Worksheets("ref").Range("L1:Y1000").Find(What:=TxtName.Value, After:=[L1000], LookIn:=xlFormulas, _
                                               LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                               MatchCase:=False, SearchFormat:=False).Offset(0, 3).Value
                                               
                                               
       TxtName.Visible = True
    Else
       TxtBusinessUnit.Value = ""
    
     End If
    If Application.CountIf(Worksheets("Ref").Range("L1:L1000"), TxtName.Value) > 0 Then
        TxtDepartment.Value = Worksheets("Ref").Range("L1:Y1000").Find(What:=TxtName.Value, After:=[L1000], LookIn:=xlFormulas, _
                                               LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                               MatchCase:=False, SearchFormat:=False).Offset(0, 2).Value
                                               
                                               
       TxtName.Visible = True
    Else
       TxtDepartment.Value = ""
    
        End If
        
              
End Sub


Private Sub TxtPosition_Change()


End Sub


Private Sub UserForm_Initialize()
ComboBox1.AddItem ("Birthday Leave")
ComboBox1.AddItem ("Marriage Leave")
ComboBox1.AddItem ("Bereavement Leave")
ComboBox1.AddItem ("Solo Parent Leave")
ComboBox1.AddItem ("Special Leave for Women")
ComboBox1.AddItem ("Violence Against Women")
ComboBox1.AddItem ("Official Business")


End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Please use the Close button!"
  End If


End Sub

chuot0106 · 3/3/16

hpkhuong đã viết:
Thôi viết mới luôn cho bạn nè...Mới viết đó... Form nha!

Gì đây ta! Mình có nhờ HpKhuong gì đâu nhỉ? -=.,,

giangleloi · 3/3/16

hpkhuong đã viết:
Thôi viết mới luôn cho bạn nè...Mới viết đó... Form nha!

Bác chuột đang thử thách "tui" với chàng "Mạnh" mà chưa gì bạn già đã giải vây cho rồi. Ham vui quá xá hà

hpkhuong · 3/3/16

giangleloi đã viết:
Bác chuột đang thử thách "tui" với chàng "Mạnh" mà chưa gì bạn già đã giải vây cho rồi. Ham vui quá xá hà

Tại chọc ông đó thôi. Vì tui trích dẫn lúc ông đó chưa Edit link mà...có biết file nào đâu mà code với két cha... --=0

Kiều Mạnh · 3/3/16

chuot0106 đã viết:
Nếu bạn hiền KieuManh ghé qua thử coi giúp code bên trong File này hộ mình với!
http://www.mediafire.com/download/323ia340au5ulgj/Hello.exe

ai lại đặt Pass khi Open file bao giờ --=0

...giống như viết code trên VBA xong đặt Pass Open xong gửi File cho người ta coi và không cho pass vậy .....Bạn Hiền //**/

chơi cao tay ha

chuot0106 · 3/3/16

kieu manh đã viết:
ai lại đặt Pass khi Open file bao giờ ...giống như viết code trên VBA xong đặt Pass Open xong gửi File cho người ta coi và không cho pass vậy .....Bạn Hiền chơi cao tay ha

Thấy trên GPE có nhiều thành viên nói việc phá khóa chỉ trong tích tắc nên mình để cả khóa luôn! @$@!^%

Mình nghĩ chắc không ảnh hưởng nhiều!

Kiều Mạnh · 3/3/16

Thôi Manh không chơi ở đây nữa .... Chào các Bạn Nha...Thân //**/

Chúc các bạn chơi vui vẻ

Bảy Dzõ · 7/3/16

Cuối tuần vừa rồi không có việc làm nên lang thang trên biển trực tuyến, vô tình đọc một bài cũng nói về chủ đề "unviewable" và cho là "cao cấp". Gửi lên cho các bạn xem thử và tin rằng nó sẽ không là gì với các cao thủ GPE. Một tuần mới vui vẻ và thành công nhé mọi người.

giaiphap · 7/3/16

Bảy Dzõ đã viết:
Cuối tuần vừa rồi không có việc làm nên lang thang trên biển trực tuyến, vô tình đọc một bài cũng nói về chủ đề "unviewable" và cho là "cao cấp". Gửi lên cho các bạn xem thử và tin rằng nó sẽ không là gì với các cao thủ GPE. Một tuần mới vui vẻ và thành công nhé mọi người.

Trong file chẳng có Form nào cả.

Bảy Dzõ · 7/3/16

giaiphap đã viết:
Trong file chẳng có Form nào cả.
View attachment 155714

Đúng thật là không có gì là không thể với các cao thủ của GPE....

Gbriel · 6/6/16

đọc 1 ồi hoa cả mắt, cả nhà cho e hỏi cái này là cái gì thế ạ?

Giao lưu - Unviewable

Ngu Excel nhất GPE

File đính kèm

I don't program, I beat code into submission!!!

hello

Ngu Excel nhất GPE

VBA & VB.NET for Excel & AutoCad

I don't program, I beat code into submission!!!

Thành viên gắn bó

Ngu Excel nhất GPE

Thành viên gắn bó

######

Thành viên gắn bó

Thành viên gắn bó

######

I don't program, I beat code into submission!!!

Thành viên gắn bó

I don't program, I beat code into submission!!!

Ngu Excel nhất GPE

File đính kèm

==(^o^)==

Ngu Excel nhất GPE

Thành viên mới

Facebook

Group