sửa dùm password cho commonbutton

[cbtm]

[ActiveCell.FormulaR1C1 = "day "
      Range("A2").Select
      ActiveCell.FormulaR1C1 = "day"
      Range("A3").Select
      ActiveCell.FormulaR1C1 = "day"
      Range("A32").Select
      ActiveCell.FormulaR1C1 = "day"
      Range("A33").Select
      ActiveWorkbook.SaveAs Filename:= _
          "C:\Documents and Settings\caulacbovb\My Documents\Book2.xls", FileFormat:= _
          xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
          , CreateBackup:=False
      Workbooks.Add
      ActiveCell.FormulaR1C1 = "day"
      Range("A32").Select
      ActiveCell.FormulaR1C1 = "2"
      Range("A33").Select
      ActiveWorkbook.SaveAs Filename:= _
          "C:\Documents and Settings\caulacbovb\My Documents\Book3.xls", FileFormat:= _
          xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
          , CreateBackup:=False
      Windows("Book2.xls").Activate
      Sheets("Sheet1").Select
  End Sub

Chào các bạn

mình m[FONT=&quot]ơ[/FONT]́i gia nhâ[FONT=&quot]̣[/FONT]p câu la[FONT=&quot]̣[/FONT]c bô[FONT=&quot]̣[/FONT] vb nên có phần không pha[FONT=&quot]̉[/FONT]i xin các ba[FONT=&quot]̣[/FONT]n thông ca[FONT=&quot]̉[/FONT]m.
mình có mô[FONT=&quot]̣[/FONT]t bài ho[FONT=&quot]̣[/FONT]c xin các ba[FONT=&quot]̣[/FONT]n xem s[FONT=&quot]ử[/FONT]a dùng cám [FONT=&quot]ơ[/FONT]n nhiều

Th[FONT=&quot]ư[/FONT]́ nhất là mình muốn la[FONT=&quot]̣[/FONT]i password khi mình enter sai password thì se[FONT=&quot]̉[/FONT] không hiê[FONT=&quot]̣[/FONT]n lên [FONT=&quot]̣[/FONT]đáp số

Th[FONT=&quot]ư[/FONT]́ hai là nh[FONT=&quot]ử[/FONT]ng dòng code [FONT=&quot]ở[/FONT] bên trên mình phài đê[FONT=&quot]̉[/FONT] nh[FONT=&quot]ư[/FONT]ng thế nào cho đúng.
ý mình là khi mình nhâ[FONT=&quot]̣[/FONT]p d[FONT=&quot]ử[/FONT] liê[FONT=&quot]̣[/FONT]u cho ngày th[FONT=&quot]ư[/FONT]́ nhất cho đến ngày th[FONT=&quot]ư[/FONT]́ ba m[FONT=&quot]ươ[/FONT]̀i mốt thi workbook se[FONT=&quot]̉[/FONT] save đến chô[FONT=&quot]̉[/FONT] mình muốn và m[FONT=&quot]ở[/FONT] mô[FONT=&quot]̣[/FONT]t workbook m[FONT=&quot]ơ[/FONT]́i. cám [FONT=&quot]ơ[/FONT]n các bạn giúp đ[FONT=&quot]ở[/FONT], mong tin