看到這個(gè)標(biāo)題,估計(jì)大部分同學(xué)以為小編要提供一個(gè)破解密碼的方法或軟件。殺雞不必用牛刀。
下午,小編的同事拿一個(gè)表求助,說這個(gè)表列寬、字體大小都無(wú)法調(diào)整。
小編看了表,原來(lái)工作表被保護(hù)了。
小編使出第一招,新建一個(gè)工作表,全選表格 - 復(fù)制。想通過復(fù)制的方法把這個(gè)受保護(hù)的表粘到新表中再修改。(這個(gè)方法適用于大多數(shù)工作表保護(hù)密碼遺忘的恢復(fù)表格)
可...郁悶的是,工作表無(wú)法選取(在工作表添加保護(hù)時(shí)可以設(shè)置該選項(xiàng))
看來(lái),只能拿出殺手锏了。
按alt+f11打開VBE編輯器(有FN要同時(shí)按FN),在打開的窗口中,插入 - 模塊。在右側(cè)窗口中快速輸入下面的代碼。最后點(diǎn)工具欄中“運(yùn)行”按鈕。發(fā)現(xiàn)表格已從被保護(hù)的表中粘貼到新表中。至此,問題完美解決!
Sub 復(fù)制()
Sheets("表1").Range("a1:f100").Copy Sheets("sheet1").Range("a1")
End Sub
注釋:
Sheets("表1"):是被保護(hù)的工作表,表1是工作表名稱。
Range("a1:f100"):表示被保護(hù)表中的數(shù)據(jù)區(qū)域
Sheets("sheet1").Range("a1"):表示新插入的工作表的單元格A1
區(qū)域1.copy 區(qū)域2 是VBA中的單元格復(fù)制的固定語(yǔ)法。
同學(xué)們可以把代碼保存下來(lái)以備急用,今天如果不是小編用VBA,同事的問題還真的找不到解決方法。