Belajar Data Collect

ODK (Open Data Kit)

ODK merupakan aplikasi yang dapat digunakan untuk pengambilan data baik itu berbasis spatial ataupun non spatial.


ODK collect adalah alat yang dapat membantu dalam pekerjaan pengambilan data atau sebagai data entri dengan menggunakan perangkat smartphone (android).
Data yang telah dimasukkan ke dalam ODK collect selanjutnya akan dikirim ke suatu server yang sudah dibuat sebelumnya.

Server ODK ( https://opendatakit.org/use/aggregate/ )

ODK collect hanya sebagai alat, sedangkan data model atau form nya harus dikembangkan oleh sendiri sesuai dengan kebutuhan. 

Untuk menggunakan ODK collect ada beberapa tahap yang harus dilakukan, di antaranya:

• ODK Aggregate (server)
• Applikasi ODK collect, bisa diunduh di google playstore
• XlsForm (form/data sheet/tallysheet/kuisioner, dll)

___________________________________________________

Membuat XlsForm

Tutorial membuat XlsForm for ODK ( http://xlsform.org/ )

Unprotect sheet Script VBA Excel Tanpa Password

Press ALT +  F11 or click on View Code in Developers Tabs

 

In the Above White Space Enter the below Code. Do not change the code just copy paste:

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    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.ProtectContents = False Then
        MsgBox "One usable password is " & Chr(i) & Chr(j) & _
            Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
            Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

Now Click on the Run Button or press F5:

 

And there you go the sheet is unprotected for you now. Also you would be getting a message in the pop up window.

This Message is contains the password which can be used to unprotect the other sheets in the same workbook.

 

Thanks to my source:

https://uknowit.uwgb.edu/page.php?id=28850