here I using MS-Excel 2010)Īfter pressing above Unprotected Sheet icon, then you pass password for Unprotected the Sheet. Now you Un-Protect the Sheet using Un-protect Sheet in Review (i.e. Suppose you want add One row in Exported Excel Sheet that also protected by Password, Check below Screen Shot. Then I Enter Correct Password now Check below screen shot and now I am able to edit only where already data are available, mean within Range (i.e. Reason of this below OLE ABAP Code line number 131 to 136. Now I am try to enter wrong password see below screen shot. Here I want to edit the Division as Per below Screen Shot, then you see one Password Pop-up window appear for asking password, Until Correct Password you unable to edit the data Now Check is your Worksheet, if you want to edit the Cell in work sheet then one password pop window show to ask for password Check below Screen Shot. Password Protected ) in Excel Sheet, look as below Screen Shot. Note: If User Name in Lower Case then Click on Check boxĪfter pressing Execute button or F8 Key you got Exported data( i.e. Įnter your Excel File Name with Path and User Name as a below Screen Shot. Using CALL METHOD CL_HTTP_UTILITY =>IF_HTTP_UTILITY ~DECODE_BASE64 decrypt the encrypted text (i.e. Using CALL METHOD CL_GUI_FRONTEND_SERVICES =>CLIPBOARD_EXPORT to Clipboard. PASSWORD1 : QUJBUEA0MA= (Encrypted Password )Ĭreate Object for Excel using EXCEL.APPLICATION. Using CALL METHOD CL_HTTP_UTILITY =>IF_HTTP_UTILITY ~ENCODE_BASE64 Encrypt the password text
Upload some User ID’s and it’s respective Password into Custom “Y” table.ĭecrypted Password: In your Custom Upload Program use below code for Encryption of Password, Which will store in above ‘Y’ Table.Decrypted format) both Cell and Worksheet. To Export Excel Sheet with Password Protected(i.e.Password Store in ‘Y’ Table for the Respective User in Encrypted format.Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet. _ Sub PasswordBreaker() 'Breaks worksheet password protection. You should not have to change anything, sheet name etc. Insert the code below in the general declarations page you have opened.
0 kommentar(er)
